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“ABSTRACT: 
This module contains routine MTH$SIGN 
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HISTORY: 
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Jonathan M. Taylor, 14-JUL-77: Version 0 
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-3 = Remove MTHSFLAG_JACKET. TNH 5-July-78 
-001 - Rages. version number and copyright notice. 


-002 = Add "'_"’ to the PSECT directive. JBS 22-DEC-7 
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INCLUDE FILES: 
oerr.mar 


; EXTERNAL SYMBOLS: 
3 NONE 
3; MACROS: 
3 NONE 
0 3 
0 3; PSECT 3 ale eth 
00000 PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
§ 0 : 
000 ; EQUATED SYMBOLS: 
0 3 NONE 
0 3 
0 
0 
0 
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OWN STORAGE: 
NONE 
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FUNCTIONAL DESCRIPTION: 
Return argl with sign of arg. 


CALLING SEQUENCE: 
Transfer_of_sign.wf.v = MTH$SIGN (argi.rf.r, arg2.rf.r) 


INPUT PARAMETERS: 
The two parameters are single-precision floating-point values 
and are call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT QUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 


ENTRY MTHSSIGN, “M<> 
MOVE a4(AP), RO ; RO = are! 
BLSS NEGARG ; branch if negative arg] 


argi is non-negative, check sign of arg2 
TSTF a8 (AP) 
EXIT 


EGATE BGEQ ; both args positive, nothing to do 
“at " MNEGF RO, RO ; negate argl 
"RET 
; argl is negative, check sign of arg2 
EGARG 
TSTF a8 (AP) 
pare NEGATE 3; arg2 positive negate arg] 
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Symbol table 6- aoaty y 9:58:20 YATARTL. SREATHSIGNOMARS 1 ° (2) 
EXIT 10 R 1 
MTHSSIGN RG 1 
NEGARG R 1 
NEGATE OD R 1 

gecensonaanonnanma $ 

! Psect synopsis ! 

¢ ewer ete ee nrn cere n + 
PSECT name Allocation PSECT No. Attributes 
- ABS, £8080 008 ( 9.3 89 ( 9} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 1 ( 25.) ( -) PIC USR CON REL LCL SHR EXE =RD NOWRT NOVEC LONG 
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H Performance indicators H 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 8:0 : 8-98 0: 6: 0.85 
yy shaersacan, % 9:00:00:26  90;00;02: 12 
Symbol table sort : 0:0 0.09 30:83 6:05 
Symbol table output : 00:00: 0:01 8:00; 0.07 
Psect synopsis output 00:00: Be 88:60:00 05 
Cross-reference output ! B82 88: 0.0 0:00:00.0 
Assembler run totals 25 00:00:01.44 00:00:08.72 


The working set Limit was 750 pages. 

1414 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 0 local symbols. 
146 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHSIGN/OBJ=OBJ$:MTHSIGN MSRC$:MTHS1GN/UPDATE=(ENHS :MTHSIGN) 
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